home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed17.d64 / lesson 8 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  239 lines
  1. 10 GOTO100
  2. 50 REM <YES>
  3. 51 S=54272:FORE=STOS+28:POKEE,0:NEXT
  4. 52 POKE54296,15:POKE54277,42:POKE54278,250
  5. 53 POKE54276,23:POKE54273,23:POKE54272,191
  6. 54 FORT=1TO150:NEXT:POKE54276,32:FORT=1TO200:NEXT
  7. 55 POKE54296,0:RETURN
  8. 60 REM <N0>
  9. 61 S=54272:FORE=STOS+28:POKEE,0:NEXT
  10. 62 POKE54296,15:POKE54277,18:POKE54278,242
  11. 63 POKE54276,33:POKE54273,4:POKE54272,48
  12. 64 FORT=1TO250:NEXT:POKE54276,32:FORT=1TO300:NEXT
  13. 65 POKE54296,0:RETURN
  14. 70 REM <BLIP>
  15. 71 S=54272:FORE=STOS+28:POKEE,0:NEXT
  16. 72 POKE54296,5:POKE54277,42:POKE54278,250
  17. 73 POKE54276,23:POKE54273,23:POKE54272,191
  18. 74 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
  19. 75 POKE54296,0:RETURN
  20. 80 FORT=1TO500:NEXT:RETURN
  21. 81 FORT=1TO1000:NEXT:RETURN
  22. 82 FORT=1TO2000:NEXT:RETURN
  23. 83 FORT=1TO3000:NEXT:RETURN
  24. 84 FORT=1TO4000:NEXT:RETURN
  25. 85 FORT=1TO5000:NEXT:RETURN
  26. 90 GOSUB81:GOSUB70
  27. 91 PRINT"[154]      [208]RESS [211][208][193][195][197][160][194][193][210][160]TO CONTINUE
  28. 92 [161]R$:[139]R$[179][177][199](32)[167]92
  29. 93 [142]
  30. 95 [153]"  PEEKETTER LUCK WITH THE NEXT QUESTION.OPEN":[142]
  31. 100 [151]53280,0:[151]53281,0:[151]646,3:[151]53272,23:C[178]0:P[178]0:W[178]0:D[178]0:G[178]0
  32. 101 [153]"LOAD      ATNCLOSE(null)(null)(null)CHR$CLOSEVALSTR$(null)LENATN(null)RIGHT$(null)(null)ATN(null)CLOSE(null)(null)(null)CHR$(null)ATN(null)
  33. 102 PRINT"           [198][207][210][160][195]64 [195][207][205][208][213][212][197][210][211]
  34. 105 [153]"                                        WAIT";
  35. 110 [153]"                                        WAIT";
  36. 115 [153]"     (null)RACTICE (null)ROBLEMS IN ATNRITHMETIC    WAIT";
  37. 120 [153]"                                        WAIT";
  38. 125 [153]"           CHR$RADE 3     (null)ART 2           WAIT";
  39. 130 [153]"                                        WAIT";
  40. 135 [153]"               (null)ESSON 8                 WAIT";
  41. 140 [153]"                                        WAIT";
  42. 145 [153]"             (null)ROVING (null)ORK     OPEN          WAIT";
  43. 150 [153]"                                        WAIT";
  44. 155 [153]"                                        WAIT"
  45. 160 [153]"                  WHC "
  46. 165 [141]90
  47. 170 [153]"PRINTLOAD       ATNND AWAY WE GO......."
  48. 175 [141]81:[141]50:[141]80
  49. 200 [153]"PRINT#LOAD               (null)UESTION 1 WAITOPEN":Z[178]0
  50. 205 [153]"  (null)ARY SAID THAT A PEN COSTS 12 CENTS
  51. 210 PRINT"  AND THAT FOUR WOULD COST 48 CENTS.
  52. 215 [153]"  (null)AS SHE RIGHT?"
  53. 220 [141]81:[141]70
  54. 225 [153]"             ON"
  55. 230 [133] A$
  56. 240 [139]A$[179][177]"YES"[175]A$[179][177]"Y"[167] 255
  57. 245 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  58. 250 P[178]P[170]1:[137]300
  59. 255 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  60. 260 [139]Z[178]2[167]G[178]G[170]1:[137]275
  61. 265 [153]"SYSON  (null)RY AGAIN                            OPEN":[141]70:[141]81:W[178]W[170]1
  62. 270 [153]"OPENONON                                        ONONONONONON":[137]225
  63. 275 [153]"ON   (null)HE CORRECT ANSWER IS  YES SYS      ":[141]82
  64. 280 [153]"    12 X 4 = 48        "
  65. 295 [141]82:[141]90
  66. 300 [153]"PRINT#LOAD               (null)UESTION 2 WAITOPEN":Z[178]0
  67. 305 [153]"  MID$AMIE SAID THAT A FIFTEEN CENT BUN
  68. 310 PRINT"  AND A POUND OF POTATOES AT 35 CENTS     WOULD COST 55 CENTS.
  69. 315 [153]"  RIGHT$S THAT CORRECT?"
  70. 320 [141]81:[141]70
  71. 325 [153]"             ON"
  72. 330 [133] A$
  73. 340 [139]A$[179][177]"NO"[175]A$[179][177]"N"[167]355
  74. 345 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  75. 350 P[178]P[170]1:[137]400
  76. 355 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  77. 360 [139]Z[178]2[167]G[178]G[170]1:[137]375
  78. 365 [153]"SYSON  (null)RY AGAIN                            OPEN":[141]70:[141]81:W[178]W[170]1
  79. 370 [153]"OPENONON                                        ONONONONONON":[137]325
  80. 375 [153]"ON   (null)HE CORRECT ANSWER IS  NO SYS      ":[141]82
  81. 380 [153]"    15 + 35 = 50  "
  82. 395 [141]82:[141]90
  83. 400 [153]"PRINT#LOAD               (null)UESTION 3 WAITOPEN":Z[178]0
  84. 405 [153]"  MID$ENNY SOLVED THIS PROBLEM, '(null)HAT IS
  85. 410 PRINT"  THE DIFFERENCE BETWEEN 26 AND 18?'
  86. 415 [153]"  AND GOT 14 FOR HER ANSWER."
  87. 417 [153]"  (null)AS SHE RIGHT?"
  88. 420 [141]81:[141]70
  89. 425 [153]"             ON"
  90. 430 [133] A$
  91. 440 [139]A$[179][177]"NO"[175]A$[179][177]"N"[167]455
  92. 445 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  93. 450 P[178]P[170]1:[137]500
  94. 455 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  95. 460 [139]Z[178]2[167]G[178]G[170]1:[137]475
  96. 465 [153]"SYSON  (null)RY AGAIN                            OPEN":[141]70:[141]81:W[178]W[170]1
  97. 470 [153]"OPENONON                                        ONONONONONON":[137]425
  98. 475 [153]"ON   (null)HE CORRECT ANSWER IS  NO SYS      ":[141]82
  99. 480 [153]"    26 - 18 = 8   "
  100. 495 [141]82:[141]90
  101. 500 [153]"PRINT#LOAD               (null)UESTION 5 WAITOPEN":Z[178]0
  102. 505 [153]"  ASCOUR APPLES COST 24 CENTS.  (null)ANDRA
  103. 510 PRINT"  SAID THEY COST 6 CENTS EACH.
  104. 515 [153]"  (null)AS SHE RIGHT?"
  105. 520 [141]81:[141]70
  106. 525 [153]"             ON"
  107. 530 [133] A$
  108. 540 [139]A$[179][177]"YES"[175]A$[179][177]"Y"[167] 555
  109. 545 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  110. 550 P[178]P[170]1:[137]600
  111. 555 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  112. 560 [139]Z[178]2[167]G[178]G[170]1:[137]575
  113. 565 [153]"SYSON  (null)RY AGAIN                            OPEN":[141]70:[141]81:W[178]W[170]1
  114. 570 [153]"OPENONON                                        ONONONONONON":[137]525
  115. 575 [153]"ON   (null)HE CORRECT ANSWER IS  YES SYS      ":[141]82
  116. 580 [153]"    24 / 4 = 6    "
  117. 595 [141]82:[141]90
  118. 600 [153]"PRINT#LOAD               (null)UESTION 5 WAITOPEN":Z[178]0
  119. 605 [153]"  (null)AS (null)OM RIGHT WHEN HE SAID THAT THREE
  120. 610 PRINT"  SCHOOL MOVIE TICKETS AT 25 CENTS
  121. 615 [153]"  EACH WOULD COST 75 CENTS?"
  122. 620 [141]81:[141]70
  123. 625 [153]"             ON"
  124. 630 [133] A$
  125. 640 [139]A$[179][177]"YES"[175]A$[179][177]"Y"[167] 655
  126. 645 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  127. 650 P[178]P[170]1:[137]700
  128. 655 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  129. 660 [139]Z[178]2[167]G[178]G[170]1:[137]675
  130. 665 [153]"SYSON  (null)RY AGAIN                            OPEN":[141]70:[141]81:W[178]W[170]1
  131. 670 [153]"OPENONON                                        ONONONONONON":[137]625
  132. 675 [153]"ON   (null)HE CORRECT ANSWER IS  YES SYS      ":[141]82
  133. 680 [153]"    25 X 3 = 75   "
  134. 695 [141]82:[141]90
  135. 700 [153]"PRINT#LOAD               (null)UESTION 6 WAITOPEN":Z[178]0
  136. 705 [153]"  RIGHT$S FIFTY CENTS ENOUGH TO BUY 12
  137. 710 PRINT"  PENCILS AT 5 CENTS A PENCIL?"
  138. 720 GOSUB81:GOSUB70
  139. 725 PRINT"             [145]"
  140. 730 INPUT A$
  141. 740 IFA$<>"NO"ANDA$<>"N"THEN 755
  142. 745 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  143. 750 P=P+1:GOTO800
  144. 755 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  145. 760 IFZ=2THENG=G+1:GOTO775
  146. 765 PRINT"[158][145]  [212]RY AGAIN                            [159]":GOSUB70:GOSUB81:W=W+1
  147. 770 PRINT"[159][145][145]                                        [145][145][145][145][145][145]":GOTO725
  148. 775 PRINT"[145]   [212]HE CORRECT ANSWER IS  NO [158]      ":GOSUB82
  149. 780 PRINT"    50 / 5 = 10   "
  150. 795 GOSUB82:GOSUB90
  151. 800 PRINT"[152][147]               [209]UESTION 7 [146][159]":Z=0
  152. 805 PRINT"  [193] TEACHER COLLECTED $6.00 TO PAY FOR
  153. 810 [153]"  SOFT DRINKS AT 50 CENTS A CAN.
  154. 815 PRINT"  [205]ARGARET SAID SHE COULD BUY 12 CANS.
  155. 817 [153]"  (null)AS THAT RIGHT?"
  156. 820 [141]81:[141]70
  157. 825 [153]"             ON"
  158. 830 [133] A$
  159. 840 [139]A$[179][177]"YES"[175]A$[179][177]"Y"[167] 855
  160. 845 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  161. 850 P[178]P[170]1:[137]900
  162. 855 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  163. 860 [139]Z[178]2[167]G[178]G[170]1:[137]875
  164. 865 [153]"SYSON  (null)RY AGAIN                            OPEN":[141]70:[141]81:W[178]W[170]1
  165. 870 [153]"OPENONON                                        ONONONONONON":[137]825
  166. 875 [153]"ON   (null)HE CORRECT ANSWER IS  YES SYS      ":[141]82
  167. 880 [153]"    600 / 50 = 12    "
  168. 895 [141]82:[141]90
  169. 900 [153]"PRINT#LOAD               (null)UESTION 8 WAITOPEN":Z[178]0
  170. 905 [153]"  ASCRED SAID THERE WERE 72 EGGS IN 6
  171. 910 PRINT"  ONE-DOZEN CARTONS OF EGGS.
  172. 915 [153]"  (null)AS HE RIGHT?"
  173. 920 [141]81:[141]70
  174. 925 [153]"             ON"
  175. 930 [133] A$
  176. 940 [139]A$[179][177]"YES"[175]A$[179][177]"Y"[167] 955
  177. 945 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  178. 950 P[178]P[170]1:[137]1000
  179. 955 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  180. 960 [139]Z[178]2[167]G[178]G[170]1:[137]975
  181. 965 [153]"SYSON  (null)RY AGAIN                            OPEN":[141]70:[141]81:W[178]W[170]1
  182. 970 [153]"OPENONON                                        ONONONONONON":[137]925
  183. 975 [153]"ON   (null)HE CORRECT ANSWER IS  YES SYS      ":[141]82
  184. 980 [153]"    12 X 6 = 72   "
  185. 995 [141]82:[141]90
  186. 1000 [153]"PRINT#LOAD               (null)UESTION 9 WAITOPEN":Z[178]0
  187. 1005 [153]"  LEFT$ARRY SAID THAT 3 QUARTS OF OIL AT
  188. 1010 PRINT"  80 CENTS A PINT WOULD COST $9.50.
  189. 1015 [153]"  (null)AS HE RIGHT?"
  190. 1020 [141]81:[141]70
  191. 1025 [153]"             ON"
  192. 1030 [133] A$
  193. 1040 [139]A$[179][177]"NO"[175]A$[179][177]"N"[167]1055
  194. 1045 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  195. 1050 P[178]P[170]1:[137]1100
  196. 1055 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  197. 1060 [139]Z[178]2[167]G[178]G[170]1:[137]1075
  198. 1065 [153]"SYSON  (null)RY AGAIN                            OPEN":[141]70:[141]81:W[178]W[170]1
  199. 1070 [153]"OPENONON                                        ONONONONONON":[137]1025
  200. 1075 [153]"ON   (null)HE CORRECT ANSWER IS  NO SYS      ":[141]82
  201. 1080 [153]"    3 X 4 X .80 = 9.60  "
  202. 1095 [141]82:[141]90
  203. 1100 [153]"PRINT#LOAD               (null)UESTION 10 WAITOPEN":Z[178]0
  204. 1105 [153]"  (null)OULD THE TEACHER HAVE A DOLLAR, IF
  205. 1110 PRINT"  18 STUDENTS EACH GAVE HER 5 CENTS       TO BUY A PICTURE?"
  206. 1120 GOSUB81:GOSUB70
  207. 1125 PRINT"             [145]"
  208. 1130 INPUT A$
  209. 1140 IFA$<>"N"ANDA$<>"NO"THEN 1155
  210. 1145 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  211. 1150 P=P+1:GOTO1200
  212. 1155 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  213. 1160 IFZ=2THENG=G+1:GOTO1175
  214. 1165 PRINT"[158][145]  [212]RY AGAIN                            [159]":GOSUB70:GOSUB81:W=W+1
  215. 1170 PRINT"[159][145][145]                                        [145][145][145][145][145][145]":GOTO1125
  216. 1175 PRINT"[145]   [212]HE CORRECT ANSWER IS  NO [158]      ":GOSUB82
  217. 1180 PRINT"    18 X 5 = 90         "
  218. 1195 GOSUB82:GOSUB90
  219. 1200 PRINT"[147]           [210]EPORT [195]ARD [146]"
  220. 1205 D=W-G:C=10-W
  221. 1210 PRINT"[153]  1. [209]UESTIONS ANSWERED CORRECTLY            ON FIRST TRY:
  222. 1215 [153]"                 ";C
  223. 1220 [153]"FOR  2. (null)UESTIONS ANSWERED CORRECTLY            ON SECOND TRY:
  224. 1225 PRINT"                 ";D
  225. 1230 PRINT"[150]  3. [209]UESTIONS MISSED ON SECOND TRY:
  226. 1235 [153]"                 ";G;""
  227. 1245 [141]90
  228. 1250 [153]"SYSLOAD  (null)OU HAVE A CHOICE:
  229. 1255 PRINT"  [208]RESS  [210] [146] TO REPEAT THIS LESSON
  230. 1260 [153]"  (null)RESS  (null) WAIT TO RETURN TO THE MENUOPEN"
  231. 1265 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"M"[167]1265
  232. 1270 [139]R$[178]"R"[167][140]:[137]100
  233. 1275 [140]
  234. 1280 [153]"LOAD (null)ETURNING TO THE DISK MENU
  235. 1285 LOAD"MENU",8
  236. 1290 RUN
  237. 1295 END
  238. 1300 REM BILL CUMBERLAND 90:12:21
  239.